home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
ls 5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
80 lines
100 rem
110 rem spritedaten rechts gehen
120 rem
130 print"[147]sprite-daten 1 werden uebertragen."
140 rem *********phase 1*************
150 for n=8192 to 8254:read q:poke n,q:next
160 data 0,160,0,2,168,0,2,145,64
170 data 10,85,64,10,85,0,40,84,0
180 data 0,208,0,0,240,0,1,124,0
190 data 5,255,0,23,255,0,23,255,64
200 data 5,255,80,1,252,80,0,168,0
210 data 0,170,0,2,250,128,10,194,128
220 data 91,2,128,92,6,128,21,69,84
230 rem *********phase 2*************
240 for n=8256 to 8318:read q:poke n,q:next
250 data 0,160,0,2,168,0,2,145,64
260 data 10,85,64,10,85,0,40,84,0
270 data 0,208,0,0,240,0,3,124,0
280 data 1,127,0,1,255,0,5,255,0
290 data 1,255,64,1,125,64,0,105,0
300 data 0,170,0,0,250,0,2,186,0
310 data 10,202,0,27,40,0,21,85,64
320 rem *********phase 3*************
330 for n=8320 to 8382:read q:poke n,q:next
340 data 0,160,0,2,168,0,2,145,64
350 data 10,85,64,10,85,0,8,84,0
360 data 32,208,0,0,240,0,3,124,0
370 data 3,127,0,13,127,0,13,127,0
380 data 15,95,0,3,92,0,2,148,0
390 data 0,171,0,0,235,0,2,168,0
400 data 1,232,0,1,160,0,1,85,64
410 rem *********phase 4*************
420 for n=8384 to 8446:read q:poke n,q:next
430 data 0,160,0,2,168,0,2,145,64
440 data 10,85,64,10,85,0,40,84,0
450 data 0,208,0,0,240,0,3,124,0
460 data 3,95,0,15,95,0,15,95,0
470 data 15,215,0,3,213,0,2,169,0
480 data 0,171,0,0,171,128,2,174,128
490 data 10,186,0,10,21,0,5,85,64
500 rem *********phase 5*************
510 for n=8448 to 8510:read q:poke n,q:next
520 data 0,160,0,2,168,0,2,145,64
530 data 10,85,64,42,85,0,8,84,0
540 data 0,208,0,0,240,0,3,124,0
550 data 3,95,0,15,95,0,15,215,0
560 data 31,213,0,23,245,64,2,169,64
570 data 2,168,0,2,186,0,10,142,128
580 data 106,14,128,104,14,128,85,5,84
590 rem *********phase 6*************
600 for n=8512 to 8574:read q:poke n,q:next
610 data 0,160,0,2,168,0,2,145,64
620 data 10,85,64,42,85,0,8,84,0
630 data 0,208,0,0,240,0,3,124,0
640 data 3,95,0,15,95,0,15,95,0
650 data 15,95,0,7,215,0,6,149,0
660 data 2,168,0,2,171,0,2,186,0
670 data 2,186,0,10,232,0,5,85,80
680 rem *********phase 7*************
690 for n=8576 to 8638:read q:poke n,q:next
700 data 0,160,0,2,168,0,2,145,64
710 data 10,85,64,10,85,0,40,84,0
720 data 0,208,0,0,240,0,3,124,0
730 data 3,127,0,13,127,0,13,127,0
740 data 15,95,0,3,95,0,2,148,0
750 data 2,168,0,2,168,0,2,168,0
760 data 11,40,0,31,40,0,21,85,0
770 rem *********phase 8*************
780 for n=8640 to 8702:read q:poke n,q:next
790 data 0,160,0,2,168,0,2,145,64
800 data 10,85,64,10,85,0,8,84,0
810 data 32,208,0,0,240,0,3,124,0
820 data 1,127,0,13,127,0,5,255,0
830 data 5,255,0,1,127,0,1,93,0
840 data 2,168,0,2,168,0,10,234,0
850 data 27,10,0,20,10,0,5,69,80
860 rem *****************************
870 print"sprite-daten 1 sind installiert!"
880 end